unit SettingFrm;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListBox,
  FMX.Layouts, FMX.StdCtrls, FMX.TabControl, Data.Bind.EngExt,
  Fmx.Bind.DBEngExt, Data.Bind.Components, System.Rtti, System.Bindings.Outputs,
  Fmx.Bind.Editors, System.Actions, FMX.ActnList, FireDAC.Stan.Intf,
  FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf,
  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,
  Data.DB, FireDAC.Comp.Client, FireDAC.Stan.Param, FireDAC.DatS,
  FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.Comp.DataSet;

type
  TFrmSetting = class(TForm)
    TabControl1: TTabControl;
    TabItem1: TTabItem;
    TabItem2: TTabItem;
    ToolBar1: TToolBar;
    Label1: TLabel;
    ListBox1: TListBox;
    AccountInformation: TListBoxGroupHeader;
    AccountType: TListBoxItem;
    PaymentType: TListBoxItem;
    RenewalType: TListBoxItem;
    SynchronisationSettings: TListBoxGroupHeader;
    SyncUSB: TListBoxItem;
    SyncWifi: TListBoxItem;
    SyncCollections: TListBoxItem;
    Switch1: TSwitch;
    Switch2: TSwitch;
    Switch3: TSwitch;
    ToolBar2: TToolBar;
    SettingsDetails: TLabel;
    SpeedButton1: TSpeedButton;
    ListBox2: TListBox;
    AcctTypes: TListBoxGroupHeader;
    SelectType: TListBoxItem;
    SelectPayment: TListBoxItem;
    SelectRenewal: TListBoxItem;
    BindingsList1: TBindingsList;
    LinkFillControlToProperty1: TLinkFillControlToProperty;
    cboType: TComboBox;
    cboPayment: TComboBox;
    cboRenewal: TComboBox;
    LinkFillControlToProperty2: TLinkFillControlToProperty;
    LinkFillControlToProperty3: TLinkFillControlToProperty;
    ActionList1: TActionList;
    ChangeTabAction1: TChangeTabAction;
    ChangeTabAction2: TChangeTabAction;
    FDConnection1: TFDConnection;
    FDQuery1: TFDQuery;
    procedure AccountTypeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSetting: TFrmSetting;

implementation

{$R *.fmx}

procedure TFrmSetting.AccountTypeClick(Sender: TObject);
begin
  ChangeTabAction2.ExecuteTarget(self);
end;

end.
